home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / autose1g / player2s.frm (.txt) < prev    next >
Visual Basic Form  |  1999-06-24  |  5KB  |  181 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPlayer2Setup 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "  Player 2 - Setup"
  6.    ClientHeight    =   6420
  7.    ClientLeft      =   45
  8.    ClientTop       =   360
  9.    ClientWidth     =   9480
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   9.75
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "PLAYER2S.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    PaletteMode     =   1  'UseZOrder
  25.    ScaleHeight     =   6420
  26.    ScaleWidth      =   9480
  27.    ShowInTaskbar   =   0   'False
  28.    Begin VB.CommandButton cmdOK 
  29.       Caption         =   "&OK"
  30.       BeginProperty Font 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   330
  40.       Left            =   3660
  41.       TabIndex        =   4
  42.       Top             =   2910
  43.       Width           =   1200
  44.    End
  45.    Begin VB.TextBox txtHomePlanetName 
  46.       BackColor       =   &H00000000&
  47.       ForeColor       =   &H0000FF00&
  48.       Height          =   360
  49.       Left            =   4215
  50.       TabIndex        =   3
  51.       Top             =   1995
  52.       Width           =   1740
  53.    End
  54.    Begin VB.TextBox txtPlayer2Name 
  55.       BackColor       =   &H00000000&
  56.       ForeColor       =   &H0000FF00&
  57.       Height          =   360
  58.       Left            =   4215
  59.       TabIndex        =   1
  60.       Top             =   1305
  61.       Width           =   1740
  62.    End
  63.    Begin VB.Label lblHomePlanetName 
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "Home Planet:"
  66.       ForeColor       =   &H0000FF00&
  67.       Height          =   300
  68.       Left            =   2730
  69.       TabIndex        =   2
  70.       Top             =   2025
  71.       Width           =   1455
  72.    End
  73.    Begin VB.Label lblPlayer2Name 
  74.       BackStyle       =   0  'Transparent
  75.       Caption         =   "Player 2 Name:"
  76.       ForeColor       =   &H0000FF00&
  77.       Height          =   240
  78.       Left            =   2565
  79.       TabIndex        =   0
  80.       Top             =   1350
  81.       Width           =   1620
  82.    End
  83. Attribute VB_Name = "frmPlayer2Setup"
  84. Attribute VB_GlobalNameSpace = False
  85. Attribute VB_Creatable = False
  86. Attribute VB_PredeclaredId = True
  87. Attribute VB_Exposed = False
  88. Option Explicit
  89. Public Counter As Integer  'for number of letters in name
  90. Private Sub cmdOK_Click()
  91. 'Don't let player 2 avoid entering a name
  92. If txtPlayer2Name.Text = "" Then
  93.     PlaySoundEffect "Quiet"
  94.     MsgBox "Please choose a name", , ""
  95.     txtPlayer2Name.SetFocus
  96.     Exit Sub
  97. End If
  98. Player(1).Name = txtPlayer2Name.Text
  99. 'assign name for player 2 home planet if none entered
  100. If txtHomePlanetName = "" Then
  101.     'select one of 5 random names
  102.     Randomize
  103.     Dim X As Integer
  104.     X = Int(Rnd * 5) + 1
  105.     Select Case X
  106.     Case 1
  107.         Planet(Player(1).HomePlanet).Name = "Azegaar"
  108.     Case 2
  109.         Planet(Player(1).HomePlanet).Name = "Ilsonka"
  110.     Case 3
  111.         Planet(Player(1).HomePlanet).Name = "Rombi"
  112.     Case 4
  113.         Planet(Player(1).HomePlanet).Name = "Talagor"
  114.     Case 5
  115.         Planet(Player(1).HomePlanet).Name = "Myrdaltos"
  116.     End Select
  117.     Planet(Player(1).HomePlanet).Name = txtHomePlanetName.Text
  118. End If
  119. Unload frmPlayer2Setup
  120. End Sub
  121. Private Sub Form_Activate()
  122. Randomize
  123.     'draw white stars on the screen
  124.     Dim a, X, Y
  125.     For a = 1 To 300
  126.         X = Int(Rnd * Me.ScaleWidth)
  127.         Y = Int(Rnd * Me.ScaleHeight)
  128.         Me.PSet (X, Y), vbWhite
  129.     Next a
  130.     'draw dark grey stars
  131.     Dim grey
  132.     grey = &H808080
  133.     For a = 1 To 400
  134.         X = Int(Rnd * frmCover.ScaleWidth)
  135.         Y = Int(Rnd * frmCover.ScaleHeight)
  136.         Me.PSet (X, Y), grey
  137.     Next a
  138.     'draw some blue stars
  139.     Dim blue
  140.     blue = &H800000
  141.     For a = 1 To 300
  142.        X = Int(Rnd * frmCover.ScaleWidth)
  143.        Y = Int(Rnd * frmCover.ScaleHeight)
  144.        Me.PSet (X, Y), blue
  145.     Next a
  146. End Sub
  147. Private Sub txtHomePlanetName_GotFocus()
  148. txtHomePlanetName.Text = ""
  149. End Sub
  150. Private Sub txtPlayer2Name_GotFocus()
  151. txtPlayer2Name.Text = ""
  152. 'enable command button to be used with enter key
  153. cmdOK.Default = True
  154. End Sub
  155. Private Sub txtPlayer2Name_KeyDown(KeyCode As Integer, Shift As Integer)
  156. If Counter > 12 Then
  157.     KeyCode = 0
  158. End If
  159. End Sub
  160. Private Sub txtPlayer2Name_KeyPress(KeyAscii As Integer)
  161. Select Case KeyAscii
  162.     Case 8
  163.         'backspace
  164.         txtPlayer2Name.Text = ""
  165.         Counter = 0
  166.     Case 32
  167.         'space bar
  168.         Counter = Counter + 1
  169.         If Counter > 14 Then
  170.             KeyAscii = 0
  171.             Beep
  172.         End If
  173.     Case Else
  174.         Counter = Counter + 1
  175.         If Counter > 14 Then
  176.            KeyAscii = 0
  177.            Beep
  178.         End If
  179. End Select
  180. End Sub
  181.